home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / death.bas < prev    next >
BASIC Source File  |  1991-10-18  |  10KB  |  232 lines
  1. 1 KEY(1) ON:ON KEY(1) GOSUB 65010
  2. 10 '
  3. 20 '　ＤＥＡＴＨ　ＡＮＤ　ＢＩＲＴＨ　／　by Kazuya Shimada
  4. 30 '
  5. 40 PLAY OFF:BGM 1:LOAD@"Q:\FJ\FM\FM_1.FMB":LOAD@"PDRUM5.PMB"
  6. 50 DIM T%(4,9),V%(23),D%(47)
  7. 60 '----------------------------------------------------------------
  8. 70 TNO%=1 : TNAME$="MAIN 1"
  9. 80 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  10. 90 '    AF  OM  WF  SY   SP   PMD AMD PMS
  11. 100 DATA 62, 15,  0,  0,     0,  0,  0,  0,  0,  0
  12. 110 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  13. 120 DATA 31,  0,  0,  6,  0, 29,  0,  2,  3,  0
  14. 130 DATA 31,  0,  0,  6,  0, 28,  0,  3,  0,  0
  15. 140 DATA 31,  0,  0,  6,  0, 27,  0,  5,  0,  0
  16. 150 DATA 31,  0,  0,  6,  0, 10,  0,  2,  0,  0
  17. 160 '----------------------------------------------------------------
  18. 170 TNO%=2 : TNAME$="BASS"
  19. 180 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  20. 190 '    AF  OM  WF  SY   SP   PMD AMD PMS
  21. 200 DATA 16, 15,  0,  0,     0,  0,  0,  0,  0,  0
  22. 210 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  23. 220 DATA 31, 18,  0,  6,  2, 48,  0,  8,  0,  0
  24. 230 DATA 31, 14,  4,  6,  2, 25,  0,  0,  7,  0 
  25. 240 DATA 31, 10,  4,  6,  2, 19,  1,  0,  3,  0
  26. 250 DATA 31,  8,  3,  6,  2, 10,  1,  0,  0,  0
  27. 260 '----------------------------------------------------------------
  28. 270 '
  29. 280 TNO%=3 : TNAME$="SUB"
  30. 290 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  31. 300 '    AF  OM  WF  SY   SP   PMD AMD PMS
  32. 310 DATA 60, 15,  0,  0,     0,  0,  0,  0,  0,  0
  33. 320 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  34. 330 DATA 31, 10,  4,  7,  3, 34,  1,  3,  3,  0
  35. 340 DATA 31, 10,  4,  7,  3, 34,  1,  3,  3,  0 
  36. 350 DATA 31,  7,  8,  7,  6, 10,  1,  1,  7,  0
  37. 360 DATA 31,  7,  8,  7,  6, 10,  1,  4,  7,  0
  38. 370 '----------------------------------------------------------------
  39. 380 TNO%=4 : TNAME$="MAIN 2"
  40. 390 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  41. 400 '    AF  OM  WF  SY   SP   PMD AMD PMS
  42. 410 DATA  2, 15,  0,  0,     0,  0,  0,  0,  0,  0
  43. 420 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  44. 430 DATA 31,  4,  3,  5,  3, 23,  0,  1,  2,  0
  45. 440 DATA 31,  4,  3,  5,  3, 30,  0,  1,  3,  0 
  46. 450 DATA 31,  4,  3,  5,  3, 20,  0,  2,  7,  0
  47. 460 DATA 31,  4,  3,  5,  3, 10,  0,  1,  0,  0
  48. 470 '----------------------------------------------------------------
  49. 480 TNO%=5 : TNAME$="SUB2"
  50. 490 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  51. 500 '    AF  OM  WF  SY   SP   PMD AMD PMS
  52. 510 DATA 61, 15,  0,  0,     0,  0,  0,  0,  0,  0
  53. 520 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  54. 530 DATA 31, 19, 13,  9,  6, 23,  1,  8,  1,  0
  55. 540 DATA 31, 18, 11,  9,  4, 10,  1,  1,  3,  0 
  56. 550 DATA 31, 18, 11,  9,  4, 10,  1,  2,  0,  0
  57. 560 DATA 31, 18, 11,  9,  4, 10,  1,  1,  0,  0
  58. 570 '----------------------------------------------------------------
  59. 580 GOTO 720
  60. 590 *TNCONV
  61. 600 FOR I%=0 TO 3:J%=I%+1:D%(8+I%)=(T%(J%,8)AND 7)*16+(T%(J%,7)AND 15)
  62. 610 D%(12+I%)=(T%(J%,5) AND 127)
  63. 620 D%(16+I%)=(T%(J%,6) AND   3)*64+(T%(J%,0) AND 31)
  64. 630 D%(20+I%)= T%(J%,1) AND  31:D%(24+I%)=T%(J%,2) AND 31
  65. 640 D%(28+I%)=(T%(J%,4) AND  15)*16+(T%(J%,3) AND 15):NEXT
  66. 650 D%(32)=T%(0,0):D%(33)=&HC0+((T%(0,7) AND 3)*16)+((T%(0,8) AND 7))
  67. 660 A$=LEFT$(TNAME$+"        ",8)
  68. 670 FOR I%=0 TO 7:D%(I%)=ASC(MID$(A$,I%+1,1)):NEXT
  69. 680 FOR I%=0 TO 47 STEP 2:L&=D%(I%+1)*256+D%(I%)
  70. 690 IF L&<&H8000 THEN V%(I% \ 2)=CINT(L&) ELSE V%(I% \ 2)=CINT(L&-&H10000)
  71. 700 NEXT:VOICE TNO%,V%:RETURN
  72. 710 '----------------------------------------------------------------
  73. 720 FOR I=0 TO 13:PART I,I:NEXT
  74. 730 T$="T155Q8L8%CU0"
  75. 740 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  76. 750 A0$="@1V8L1"
  77. 760 B0$="@1U90V8L1"
  78. 770 C0$="@5U50V10L12"
  79. 780 F0$="@2V8L12"
  80. 790 G0$="@1V15L4O4"
  81. 800 H0$="@3V11L12O4EEEEEEEEEEEEV8@13GGGEEECCC<AAA>@3V11L4"
  82. 810 J0$="@21U40%R@V18L1"
  83. 820 K0$="@21U80%L@V18L1"
  84. 830 R0$="R1 R1"
  85. 840 A1$="V7O4E-F"
  86. 850 A1B$="V9O4E-F"
  87. 860 C1$="O4((CDE-)4)"
  88. 870 F1$="O3((C>C<C)4)"
  89. 880 G1$=" CRCR CRC12R12C12R"
  90. 890 H1$="(RERE)"
  91. 900 J1$="O4CD"
  92. 910 R1$="R1"
  93. 920 A2$="V8O4GA-"
  94. 930 A2B$="V10O4GA-"
  95. 940 H2$="RERE RERL12EEEL4"
  96. 950 H2B$="RERE REL12REREREL4"
  97. 960 J2$="O4E-F"
  98. 970 A3$="@3U0Q6V6%CL12O5C<CEG>C>C<GECEGE C<E>C<GEG>GEC>C<EG"
  99. 980 B3$="@3U90Q6V6%CL12O5C<CEG>C>C<GECEGE C<E>C<GEG>GEC>C<EG"
  100. 990 F3$="O3(C>C<C)4 <(B->B-<B-)4"
  101. 1000 J3$="O4C C"
  102. 1010 A4$="O4FA>C<FA>C<FA>FA>CF <<GB>D<GB>D<GB>GB>DG"
  103. 1020 F4$="O2(F>F<F)4 (G>G<G)4"
  104. 1030 J4$="O3F G2B4B4"
  105. 1040 M5$="@18U60@V32%CL1O4G& F"
  106. 1050 F5$="O3((C>C<C)4)"
  107. 1060 J5$="O3A-& A-"
  108. 1070 J6$="O3B-& B-"
  109. 1080 M6$="O4E& D"
  110. 1090 G7$="CRCR R1"
  111. 1100 H7$="RERE L12EEEEEEEEEEEEL4"
  112. 1110 J7$="O4C&C&"
  113. 1120 J7B$="O4C <G"
  114. 1130 K7$="@18U40@V20%LL1O4E& E&"
  115. 1140 K7B$="O4E D"
  116. 1150 L7$="@18U80@V20%RL1O4E& E&"
  117. 1160 M7$="O4E& E&"
  118. 1170 M7B$="O4E R"
  119. 1180 A8$="@4U0%CQ8V8L4O4GE-FA- G2FE-"
  120. 1190 B8$="@4U110%CQ8V8L4O4GE-FA- G2FE-"
  121. 1200 F8$="O3((C>C<C)4)"
  122. 1210 G8$="(CRCR)"
  123. 1220 H8$="(RERE)"
  124. 1230 J8$="O4C C"
  125. 1240 M8$="O4A G"
  126. 1250 A9$="O4D1& D<B->CD"
  127. 1260 F9$="O2((G>G<G)4)"
  128. 1270 J9$="O3G& @V14>G@V18"
  129. 1280 A10$="O4D2.E-6C12& C2<B-A-"
  130. 1290 F10$="O2((A->A-<A-)4)"
  131. 1300 J10$="O3A-& A-"
  132. 1310 A11$="O3A->CGF C2D2"
  133. 1320 F11$="O2(F>F<F)4 (F>F<F)(G>G<G)"
  134. 1330 G11$="CRCR CRCR"
  135. 1340 H11$="RERE RERE12E12E12"
  136. 1350 J11$="F& F2G2"
  137. 1360 A12$="O4D4&D6E-12E-4F8E-8& E-E-FG"
  138. 1370 F12$="O2(A->A-<A-)4 (A->A-<A-)4"
  139. 1380 J12$="O3A-& A-"
  140. 1390 A13$="O4G1 A-2B-G"
  141. 1400 F13$="O2((G>G<G)4)"
  142. 1410 G13$="CRCR CRCR"
  143. 1420 H13$="RERE REL12RREEEEL4"
  144. 1430 J13$="O3G& G"
  145. 1440 A14$="O4FC6F12&F2& FFGF"
  146. 1450 F14$="O2((F>F<F)4)"
  147. 1460 J14$="O3F& F"
  148. 1470 A15$="O4E-<B-6>E-12&E-2 B-A-GB-"
  149. 1480 F15$="O2((E->E-<E-)4)"
  150. 1490 J15$="O3E- E-"
  151. 1500 A16$="O4E-1 R1"
  152. 1510 F16$="O2((E->E-<E-)4)"
  153. 1520 G16$="CRCR CRC12R12C12R"
  154. 1530 H16$="RERE RERE"
  155. 1540 J16$="O3E- >E-2D2"
  156. 1550 A17$="O4A-2A-2 B-2.R"
  157. 1560 F17$="O2(A->A-<A-)4 (B->B-<B-)4"
  158. 1570 J17$="O3A- B-"
  159. 1580 G18$="CCCC"
  160. 1590 H18$="L12REEREEREEEEEL4"
  161. 1600 A19$="O4B-1 G2A-B-"
  162. 1610 F19$="O2((E->E-<E-)4)"
  163. 1620 J19$="O4E-& E-"
  164. 1630 A20$="O4B-2A-G A-2.R"
  165. 1640 F20$="O3(D>D<D)4 <(A->A-<A-)4"
  166. 1650 J20$="O4D <A-"
  167. 1660 A21$="O4A-GE-B- FGA-F"
  168. 1670 F21$="O2(A->A-<A-)4 (F>F<F)4"
  169. 1680 J21$="O3A- F"
  170. 1690 A22$="O4B-2A-G >C&C6<B-12&B-R"
  171. 1700 F22$="O2((G>G<G)4)"
  172. 1710 G22$="CRCR CRRR"
  173. 1720 H22$="RERE REL12EEEEEEL4"
  174. 1730 J22$="O3G& G"
  175. 1740 A23$="O4A-2CE- DE-A-G"
  176. 1750 F23$="O2(A->A-<A-)4 (B->B-<B-)4"
  177. 1760 J23$="O3A- B-"
  178. 1770 A24$="O4E-1& E-R2."
  179. 1780 F24$="O2((E->E-<E-)4)"
  180. 1790 J24$="O3E-& E-&"
  181. 1800 F25$="O2(E->E-<E-)4 >E-4"
  182. 1810 G25$="CRCR CRRR"
  183. 1820 H25$="REL12REEEEE L4ERRR"
  184. 1830 J25$="O3E-& E-4R2."
  185. 1840 PLAY A0$,B0$,C0$,D0$,E0$,F0$,G0$,H0$,I0$,J0$,K0$
  186. 1850 PLAY R0$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$,J1$,J1$
  187. 1860 PLAY R0$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$,J2$,J2$
  188. 1870 PLAY R0$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$,J1$,J1$
  189. 1880 PLAY R0$,B1$,C1$,D1$,E1$,F1$,G1$,H2$,I1$,J2$,J2$
  190. 1890 PLAY A1$,A1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$,J1$,J1$
  191. 1900 PLAY A2$,A2$,C1$,D1$,E1$,F1$,G1$,H1$,I1$,J2$,J2$
  192. 1910 PLAY A1B$,A1B$,C1$,D1$,E1$,F1$,G1$,H1$,I1$,J1$,J1$
  193. 1920 PLAY A2B$,A2B$,C1$,D1$,E1$,F1$,G1$,H2B$,I1$,J2$,J2$
  194. 1930 PLAY A3$,B3$,C3$,D3$,E3$,F3$,G1$,H1$,I1$,J3$,J3$
  195. 1940 PLAY A4$,A4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,J4$
  196. 1950 PLAY A3$,B3$,C3$,D3$,E3$,F3$,G1$,H1$,I1$,J3$,J3$
  197. 1960 PLAY A4$,A4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,J4$
  198. 1970 PLAY A5$,A5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,J5$
  199. 1980 PLAY A5$,A5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J6$,J6$
  200. 1990 PLAY A5$,A5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J7$,J7$,K7$,L7$,M5$
  201. 2000 PLAY A5$,A5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J7$,J7$,K7$,L7$,M6$
  202. 2010 PLAY A5$,A5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J7$,J7$,K7$,L7$,M7$
  203. 2020 PLAY A5$,A5$,C5$,D5$,E5$,F5$,G7$,H7$,I1$,J7B$,J7B$,K7B$,K7B$,M7B$
  204. 2030 PLAY A8$,B8$,C8$,D8$,E8$,F8$,G8$,H8$,I8$,J8$,J8$,K8$,L8$
  205. 2040 PLAY A9$,A9$,C9$,D9$,E9$,F9$,G8$,H8$,I8$,J9$,J9$,K9$,L9$
  206. 2050 PLAY A10$,A10$,C10$,D10$,E10$,F10$,G8$,H8$,I8$,J10$,J10$,K10$,L10$
  207. 2060 PLAY A11$,A11$,C11$,D11$,E11$,F11$,G11$,H11$,I11$,J11$,J11$,K11$,L11$
  208. 2070 PLAY A8$,B8$,C8$,D8$,E8$,F8$,G8$,H8$,I8$,J8$,J8$,K8$,L8$
  209. 2080 PLAY A9$,A9$,C9$,D9$,E9$,F9$,G8$,H8$,I8$,J9$,J9$,K9$,L9$
  210. 2090 PLAY A12$,A12$,C12$,D12$,E12$,F12$,G8$,H8$,I8$,J12$,J12$,K12$,L12$
  211. 2100 PLAY A13$,A13$,C13$,D13$,E13$,F13$,G13$,H13$,I13$,J13$,J13$,K13$,L13$
  212. 2110 PLAY A14$,A14$,C14$,D14$,E14$,F14$,G8$,H8$,I8$,J14$,J14$,K14$,L14$
  213. 2120 PLAY A15$,A15$,C15$,D15$,E15$,F15$,G8$,H8$,I8$,J15$,J15$,K15$,L15$
  214. 2130 PLAY A14$,A14$,C14$,D14$,E14$,F14$,G8$,H8$,I8$,J14$,J14$,K14$,L14$
  215. 2140 PLAY A16$,A16$,C16$,D16$,E16$,F16$,G16$,H16$,I16$,J16$,J16$,K16$,L16$
  216. 2150 PLAY A14$,A14$,C14$,D14$,E14$,F14$,G8$,H8$,I8$,J14$,J14$,K14$,L14$
  217. 2160 PLAY A15$,A15$,C15$,D15$,E15$,F15$,G8$,H8$,I8$,J15$,J15$,K15$,L15$
  218. 2170 PLAY A14$,A14$,C14$,D14$,E14$,F14$,G8$,H8$,I8$,J14$,J14$,K14$,L14$
  219. 2180 PLAY A17$,A17$,C17$,D17$,E17$,F17$,G8$,H8$,I8$,J17$,J17$,K17$,L17$
  220. 2190 PLAY R1$,R1$,R1$,R1$,R1$,R1$,G18$,H18$,I18$,R1$,R1$,R1$,R1$
  221. 2200 PLAY A19$,A19$,C19$,D19$,E19$,F19$,G8$,H8$,I8$,J19$,J19$,K19$,L19$
  222. 2210 PLAY A20$,A20$,C20$,D20$,E20$,F20$,G8$,H8$,I8$,J20$,J20$,K20$,L20$
  223. 2220 PLAY A21$,A21$,C21$,D21$,E21$,F21$,G8$,H8$,I8$,J21$,J21$,K21$,L21$
  224. 2230 PLAY A22$,A22$,C22$,D22$,E22$,F22$,G22$,H22$,I22$,J22$,J22$,K22$,L22$
  225. 2240 PLAY A19$,A19$,C19$,D19$,E19$,F19$,G8$,H8$,I8$,J19$,J19$,K19$,L19$
  226. 2250 PLAY A20$,A20$,C20$,D20$,E20$,F20$,G8$,H8$,I8$,J20$,J20$,K20$,L20$
  227. 2260 PLAY A23$,A23$,C23$,D23$,E23$,F23$,G8$,H8$,I8$,J23$,J23$,K23$,L23$
  228. 2270 PLAY A24$,A24$,C24$,D24$,E24$,F24$,G8$,H8$,I8$,J24$,J24$,K24$,L24$
  229. 2280 PLAY A25$,A25$,C25$,D25$,E25$,F25$,G25$,H25$,I25$,J25$,J25$,K25$,L25$
  230. 65000 BGM 0:PLAY"R64":BGM 1
  231. 65010 CLOSE #1 :KEY(1) OFF:PLAY OFF:RUN"MENU.BAS"
  232.